home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / MAPSIZ.for < prev    next >
Text File  |  1991-04-13  |  710b  |  23 lines
  1.     SUBROUTINE MAPSIZ(XLPCT,XRPCT,YBPCT,YTPCT,CHRSIZ)
  2.         IMPLICIT NONE
  3.         REAL XLPCT,XRPCT,YBPCT,YTPCT,CHRSIZ
  4.         REAL*4 XLEFT,XRIGHT,YBOT,YTOP,CSIZE,GOODCS
  5.     INCLUDE DIGLIB$KOM:GCDCHR.PRM
  6. C
  7.     XLEFT = XLENCM*XLPCT/100.0
  8.     IF(XLEFT.EQ.0.0) XLEFT = 0.1
  9.     XRIGHT = XLENCM*XRPCT/100.0
  10.     IF(XRPCT.EQ.100.0) XRIGHT = XRIGHT - 0.1
  11.     YBOT = YLENCM*YBPCT/100.0
  12.     IF(YBPCT.EQ.0.0) YBOT = 0.1
  13.     YTOP = YLENCM*YTPCT/100.0
  14.     IF(YTPCT.EQ.100.0) YTOP = YTOP - 0.1
  15.     CSIZE = CHRSIZ
  16.     IF (CSIZE .EQ. 0.0)
  17.      1  CSIZE = GOODCS(AMAX1(0.3,AMIN1(YTOP-YBOT,XRIGHT-XLEFT)/80.0))
  18. D    WRITE(9,12345)XLEFT,XRIGHT,YBOT,YTOP,CSIZE
  19. D12345    FORMAT(1X,"MAPSIZ" 5F8.2)
  20.     CALL MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,0.9*CSIZE,.FALSE.)
  21.     RETURN
  22.     END
  23.